<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={sql server};Server=.;Uid=sa;Pwd=123456;Database=ritaoba"
 
 	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
		Response.End
	End If
	
	set rss=conn.execute("select * from Payment where id=4")
	'WIDseller_email=rss("mail")
	v_mid=rss("MerchantID")
	key=rss("MerchantKey")
	set rss=nothing


Function Geturl()
		Dim server_x1,server_x2
		server_x1="http://"
		server_x2=request.ServerVariables("HTTP_HOST")
		Geturl=server_x1&server_x2
	End Function

%>